query='SELECT ?film ?filmLabel 
WHERE {
  ?film wdt:P31 wd:Q11424.
  SERVICE wikibase:label {
    bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en".
  }
}'

result=purrr::quietly(WikidataQueryServiceR::query_wikidata)(query)
tib=result$r

tib=spq_init() %>% 
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>% 
  spq_head(n=10) %>% 
  send()

query='SELECT ?film ?filmLabel WHERE {
  ?film wdt:P31 wd:Q11424.
  SERVICE wikibase:label {
    bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en".
  }
}
LIMIT 10'
result=WikidataQueryServiceR::query_wikidata(query)
tib=result$r

tib=spq_init() %>% 
  spq_add("?film wdt:P31wd:Q11424", label="?film") %>% 
  spq_head(n=10) %>% 
  send()

tib=spq_init() %>%                                       # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%  # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%       # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_language("en,fr") %>%                              # Affiche les étiquettes en anglais, ou à défaut en français puis
  spq_head(n=10) %>%                                     # Sélectionne les 10 premiers résultats puis
  send()                                                 # Envoie la requête

show(tib)

 tib=spq_init() %>%                                       # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%        # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_summarise(c("?n_films"="COUNT(?film)")) %>%         # Résume en comptant le nombre de films puis
  send()                                                  # Montre la table

show(tib)

lf_1=spq_init() %>%                                         # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%     # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%          # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_add("?loc wdt:P625 ?coords",                          # Ajoute triplet "?loc a pour coordonnées spatiales ?coords" 
          within_box=list(southwest=c(3,43),                #         ... restreins pour que les coordonnées soient comprises
                          northeast=c(7,47))) %>%           #         ... dans un cadre défini par ces deux points (S-O et N-E) puis
  spq_language("fr") %>%                                    # Etiquette de préférence en français puis    
  send()                                                    # Envoie la requête

show(lf_1 %>% head())

lf_2=spq_init() %>%                                       # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%        # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_add("?loc wdt:P625 ?coords",                        # Ajoute triplet "?loc a pour coordonnées spatiales ?coords"
          within_box=list(southwest=c(3,43),              #           ... restreins pour que les coordonnées soient comprises
                          northeast=c(7,47)))%>%          #           ... dans un cadre défini par ces deux points (S-O et N-E) puis
  spq_add("?film wdt:P18 ?image", required=FALSE) %>%     # Ajoute triplet "?film a pour image d'illustration ?image" puis
  spq_add("?film wdt:P921 ?subject",                      # Ajoute triplet "?film a pour sujet ?subject" (info optionnelle)
          label="?subject", required=FALSE) %>%           #           ... étiquette ?subject puis
  spq_add("?film wdt:P577 ?date") %>%                     # Ajoute triplet "?film a été publié à la date ?date puis
  spq_mutate(c("?year"="year(?date)")) %>%                # Ajoute une variable ?year qui corresond à l'année de ?date puis
  spq_language("fr,en") %>%                               # Etiquette (de préférence en français, à défaut en anglais) puis
  send()                                                  # Envoie la requête

lf_2 %>% 
   select(-date) %>% 
   unique() %>% 
   head() %>% 
   show()

lf_c=lf_2 %>%                                                 # Considère lf_2 puis
  select(film,ends_with("Label"),coords,image,year) %>%       # Sélectionne ces variables (dont "....Label") puis
  group_by(film,coords,image,locLabel,filmLabel) %>%          # Groupe par ces variables puis 
  summarise(subjectLabel=stringr::str_c(unique(subjectLabel), # Résume par groupe: le sujet (sur une seule ligne)   
                                        collapse=", "),       #     ... en séparant les éléments par ", "
            year=min(year),                                   #     ... et l'année comme minimum des années de sortie   
            .groups="drop")                                   # Dégroupe

show(head(lf_c))

lf_m =lf_c %>% 
  transform_wikidata_coords("coords") %>% 
  mutate(popup=glue::glue("<h1>{filmLabel}<a href={film} target='_blank'>🔗</a></h1>
                           <li>Lieu: {locLabel}</li>
                           <li>Année de sortie: {year}</li>")) %>% 
  mutate(popup=case_when(is.na(image)~popup,
                         !is.na(image)~glue::glue("{popup}
                                                  <img src='{image}' height='200'>"))) %>% 
  mutate(popup=case_when(is.na(subjectLabel)~popup,
                         !is.na(subjectLabel)~glue::glue("{popup}
                                                         <li>Thèmes: {subjectLabel}</li>")))

spq_init() %>%
  spq_add("?item wdt:P31 wd:Q13442814") %>%                  # ?item est une instance d'article scientifique
  spq_add("?item rdfs:label ?itemTitle") %>%                 # ?item a pour titre ?itemTitle
  spq_filter("contains(lcase(?itemTitle),'wikidata')") %>%   # <= ce titre contient (en minuscules) "wikidata"
  spq_filter("lang(?itemTitle)='en'") %>%                    # <= on filtre pour ne garder que les titres en anglais
  spq_head(n=5) %>%
  send() %>% 
  show()

spq_init() %>%
 spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # ?film est un instance de film
 spq_add("?film wdt:P577 ?date") %>%                     # ?film est sorti à la date ?date
 spq_mutate(c("?year"="year(?date)")) %>%                # <= ajoute variable ?year correspondant à l'année de la date
 spq_head(5) %>% 
 send() %>% 
 show()

spq_init() %>%
 spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # ?film est une instance de film
 spq_add("?film wdt:P577 ?date") %>%                     # ?film est sorti à la date ?date
 spq_mutate(c("?year"="year(?date)")) %>%                # ?year est l'année correspondant à ?date
 spq_select("-?date") %>%                                # <= on retire la variable ?date
 spq_head(5) %>% 
 send() %>% 
 show()

spq_init() %>%
  spq_add("?pers wdt:P31 wd:Q5",label="?pers") %>%        # ?pers est une instance de personne
  spq_add("?pers wdt:P19/wdt:P131* wd:Q60") %>%           # qui est née ou est située à New-York
  spq_add("?pers wikibase:sitelinks ?sitelinks") %>%      # ?personne fait l'objet de n liens dans le projet Wikimedia
  spq_arrange(c("desc(?sitelinks)")) %>%                  # <= classe par ordre décroissant de n
  spq_head(n=5) %>%
  send() %>% 
  show()

tib=spq_init() %>%
  spq_add("?com wdt:P31 wd:Q21869758") %>%          # ?com est une instance de commune disparue
  spq_add("?com wdt:P131* wd:Q18338206") %>%        # ?com est située en Auvergne-Rhône-Alpes
  spq_add("?com wdt:P131* ?dep", label="?dep") %>%  # ?com est située dans ?dep
  spq_add("?dep wdt:P31 wd:Q6465") %>%              # ?dep est une instance de département
  spq_group_by(c("?dep", "?depLabel")) %>%          # Groupe par ?dep et ?depLabel
  spq_summarise(c("?ncomsup"="count(?com)")) %>%    # Résume: ?ncomsup = nb de ?com
  send()

tib %>% show()

tib=spq_init() %>% 
  spq_add("?person dbo:birthPlace ?place") %>% # ?personne est née à ?place
  spq_add("?person dbo:profession ?job") %>%   # ?personne a pour profession ?job
  spq_add("?job rdfs:label ?jobLabel") %>%     # ?job a pour étiquette ?jobLabel
  spq_filter(c("LANG(?jobLabel)='en'")) %>%    # Filtre pour ne garder que les étiquettes en anglais
  spq_add("?place rdfs:label 'Lyon'@en") %>%   # ?place a pour étiquette 'Lyon' (en anglais)
  spq_head(10) %>% 
  send("dbpedia")                              # Envoie sur le SPARQL endpoint de DBPEDIA

show(tib)

query_doc=spq_init() %>% 
  spq_add("haldoc:inria-00362381 dcterms:hasVersion ?version") %>% # Ce doc a des versions ?version
  spq_add("?version dcterms:title ?title") %>%                     # ?version a pour titre ?titre
  spq_add(". dcterms:creator ?creator") %>%                        # ...... et pour créateur ?creator
  spq_add(". ore:aggregates ?pdf") %>%                             # ...... et ce lien vers un ?pdf
  spq_add("?creator hal:person ?person") %>%                       # ?creator est une personne ?person
  spq_add("?person foaf:name ?name")                               # ?person a pour nom ?name

tib_doc=send(query_doc,"hal")

tib_doc

show(usual_prefixes)

show(usual_endpoints)

tib=spq_init() %>% 
  spq_prefix(prefixes=c(sym="http://symogih.org/ontology/",         # Préfixe avec sym:
                        syr="http://symogih.org/resource/")) %>%    # Préfixe avec syr:
  spq_add("?tyro rdfs:label ?TyRoLabel") %>% 
  spq_add("?tyin rdfs:label ?TyInLabel") %>% 
  spq_add("?s ?p syr:Actr56241") %>% 
  spq_add(". sym:isComponentOf ?info") %>% 
  spq_add(". sym:hasRoleType ?tyro") %>% 
  spq_add("?info sym:knowledgeUnitStandardLabel ?infoStandardLabel") %>% 
  spq_add(". sym:knowledgeUnitStandardDate ?infoStandardDate") %>% 
  spq_add(". sym:hasKnowledgeUnitType ?tyin") %>% 
  spq_arrange("?infoStandardDate") %>% 
  spq_head(n=10) %>% 
  send(endpoint="http://bhp-publi.ish-lyon.cnrs.fr:8888/sparql")    # Envoie sur le sparql endpoint

show(tib)